<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>130</cardCount>
<cardID>21888</cardID>
<listID>66264</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackunlock screenresumeStackend openStackon closeStacksuspendStackend closeStackon resumeStackhide menubarend resumeStackon suspendStackshow menubarend suspendStackon arrowKeyend arrowKeyon SaveMouserepeat until the mouseclickend repeatput the mouseloc&return into cd fld "Log"repeatif the mouseclick thenask "Enter cursor name or CANCEL to exit"&return&"(BEACH,ARROWPTR,POINTER,I-BEAM)"if it = empty thenexit repeatelseput "#,"&it&return after cd fld "Log"end ifelseput the mouseloc&return after cd fld "Log"wait 10end ifend repeatend SaveMouseon ReMouseset cursor to handmoveCursor "Log"end ReMouseon moveCursor locsrepeat with i = 1 to (number of lines in cd fld locs)put line i of cd fld locs into mlocwait 2if item 1 of mloc = "#" thenset the icon of cd btn "mousePict" to item 2 of mlocelseset the loc of cd btn "mousePict" to mlocend ifend repeatend moveCursoron initialMove locsset the loc of cd btn "mousePict" to line 1 of cd fld locsunlock screenmoveCursor locsend initialMoveon hitkey strrepeat with i = 1 to length(str)--wait 5keydown char i of strend repeatset cursor to watchend hitkeyon animate theStart, theEndset cursor to watchrepeat with i = theStart to theEndlock screengo to cd iend repeatend animateon quitDemovisual effect dissolvego to cd "quitCd"set cursor to watchwait 3 secondsvisual effect dissolvego to cd "lastcd"domenu "Quit HyperCard"end quitDemoon do_unhiliteset the hilite of cd btn "Create ANN" of cd "demoIntro" to falseset the hilite of cd btn "Train ANN" of cd "demoIntro" to falseset the hilite of cd btn "Create KB" of cd "demoIntro" to falseset the hilite of cd btn "Run KB" of cd "demoIntro" to falseend do_unhiliteon startAnimation animNamevisual effect iris open fastgo to cd animNamedo_unhiliteend startAnimation</script>
